home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / WordUp.dxr / Internal_6_solve button.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.3 KB  |  71 lines
  1. property pSprite, spriteNum, pnorm, pdown, pover, pcurrent, pActive
  2. global gtiles, groupmenu, gsolve
  3.  
  4. on beginSprite me
  5.   pSprite = sprite(spriteNum)
  6.   pActive = 1
  7.   pSprite.ink = 8
  8.   pSprite.member.alphaThreshold = 0
  9.   pnorm = pSprite.member
  10.   pdown = member(pnorm.name && "down")
  11.   pover = member(pnorm.name && "over")
  12. end
  13.  
  14. on mouseEnter me
  15.   if pActive then
  16.     puppetSound(4, "solve button over")
  17.     pSprite.member = pover
  18.     pcurrent = pSprite.member
  19.   end if
  20. end
  21.  
  22. on mouseLeave me
  23.   if pActive then
  24.     pSprite.member = pnorm
  25.     pcurrent = pSprite.member
  26.   end if
  27. end
  28.  
  29. on mouseDown me
  30.   if pActive then
  31.     puppetSound(4, "solve button click")
  32.     pSprite.member = pdown
  33.   end if
  34. end
  35.  
  36. on mouseUp me
  37.   if pActive then
  38.     pActive = 0
  39.     pSprite.member = pnorm
  40.     if me.solvePuzzle() then
  41.       gameEnd(#win)
  42.     else
  43.       gsolve.visible = 1
  44.       s = the ticks + 100
  45.       repeat while the ticks < s
  46.         updateStage()
  47.       end repeat
  48.       gsolve.member = member("solved2")
  49.       repeat with i in groupmenu
  50.         i.visible = 1
  51.       end repeat
  52.     end if
  53.   end if
  54. end
  55.  
  56. on mouseUpOutSide me
  57.   mouseUp(me)
  58. end
  59.  
  60. on solvePuzzle me
  61.   repeat with i in gtiles
  62.     if voidp(i.pchar) then
  63.       next repeat
  64.     end if
  65.     if i.member.name <> string(i.pchar) then
  66.       return 0
  67.     end if
  68.   end repeat
  69.   return 1
  70. end
  71.